home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Excellent CD HFS.raw / HyperCard / HyperCard 1.2.2 International / HyperCard British (B-1.2.2) / More Stacks / Phone / background_2152.txt < prev    next >
Text File  |  1988-02-17  |  5KB  |  208 lines
  1. -- background: 2152 from stack: in
  2. -- bmap block id: 2608
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Phone
  6. ----- HyperTalk script -----
  7. on closeField
  8.   put the short name of the target into fieldname
  9.   repeat with x = the number of chars in bkgnd field fieldname down to 1
  10.     if char x of bkgnd field fieldname is not in "0123456789ABCD#*,()- "
  11.     then delete char x of bkgnd field fieldname
  12.   end repeat
  13. end closefield
  14.  
  15.  
  16.  
  17. -- part 3 (field)
  18. -- low flags: 00
  19. -- high flags: 4000
  20. -- rect: left=385 top=191 right=209 bottom=436
  21. -- title width / last selected line: 0
  22. -- icon id / first selected line: 0 / 0
  23. -- text alignment: 0
  24. -- font id: 3
  25. -- text size: 9
  26. -- style flags: 0
  27. -- line height: 12
  28. -- part name: long dist preamble
  29.  
  30.  
  31. -- part 1 (field)
  32. -- low flags: 00
  33. -- high flags: 4000
  34. -- rect: left=385 top=74 right=92 bottom=436
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 0 / 0
  37. -- text alignment: 0
  38. -- font id: 3
  39. -- text size: 9
  40. -- style flags: 256
  41. -- line height: 12
  42. -- part name: area code
  43.  
  44.  
  45. -- part 2 (field)
  46. -- low flags: 00
  47. -- high flags: 4000
  48. -- rect: left=385 top=157 right=175 bottom=436
  49. -- title width / last selected line: 0
  50. -- icon id / first selected line: 0 / 0
  51. -- text alignment: 0
  52. -- font id: 3
  53. -- text size: 9
  54. -- style flags: 0
  55. -- line height: 12
  56. -- part name: preamble
  57.  
  58.  
  59. -- part 9 (field)
  60. -- low flags: 01
  61. -- high flags: 0000
  62. -- rect: left=259 top=74 right=92 bottom=362
  63. -- title width / last selected line: 0
  64. -- icon id / first selected line: 0 / 0
  65. -- text alignment: 0
  66. -- font id: 3
  67. -- text size: 10
  68. -- style flags: 256
  69. -- line height: 13
  70. -- part name: 
  71.  
  72.  
  73. -- part 20 (field)
  74. -- low flags: 01
  75. -- high flags: 0000
  76. -- rect: left=401 top=40 right=58 bottom=466
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 0 / 0
  79. -- text alignment: 0
  80. -- font id: 3
  81. -- text size: 12
  82. -- style flags: 0
  83. -- line height: 16
  84. -- part name: loc time
  85.  
  86.  
  87. -- part 27 (field)
  88. -- low flags: 00
  89. -- high flags: 4000
  90. -- rect: left=385 top=208 right=226 bottom=436
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 0 / 0
  93. -- text alignment: 0
  94. -- font id: 3
  95. -- text size: 9
  96. -- style flags: 0
  97. -- line height: 12
  98. -- part name: intl preamble
  99.  
  100.  
  101. -- part 35 (field)
  102. -- low flags: 01
  103. -- high flags: 0000
  104. -- rect: left=259 top=96 right=114 bottom=406
  105. -- title width / last selected line: 0
  106. -- icon id / first selected line: 0 / 0
  107. -- text alignment: 0
  108. -- font id: 3
  109. -- text size: 10
  110. -- style flags: 0
  111. -- line height: 13
  112. -- part name: 
  113. ----- HyperTalk script -----
  114. on mouseUp
  115.   set visible of card field "info 6" to not the visible of card field "info 6"
  116. end mouseUp
  117.  
  118.  
  119. -- part 36 (field)
  120. -- low flags: 00
  121. -- high flags: 0002
  122. -- rect: left=264 top=111 right=150 bottom=435
  123. -- title width / last selected line: 0
  124. -- icon id / first selected line: 0 / 0
  125. -- text alignment: 0
  126. -- font id: 3
  127. -- text size: 9
  128. -- style flags: 0
  129. -- line height: 12
  130. -- part name: Local Prefixes
  131.  
  132.  
  133. -- part 40 (field)
  134. -- low flags: 00
  135. -- high flags: 4000
  136. -- rect: left=385 top=174 right=192 bottom=436
  137. -- title width / last selected line: 0
  138. -- icon id / first selected line: 0 / 0
  139. -- text alignment: 0
  140. -- font id: 3
  141. -- text size: 9
  142. -- style flags: 0
  143. -- line height: 12
  144. -- part name: toll prefix
  145.  
  146.  
  147. -- part 44 (button)
  148. -- low flags: 00
  149. -- high flags: E006
  150. -- rect: left=79 top=205 right=223 bottom=215
  151. -- title width / last selected line: 0
  152. -- icon id / first selected line: 0 / 0
  153. -- text alignment: 1
  154. -- font id: 3
  155. -- text size: 10
  156. -- style flags: 0
  157. -- line height: 13
  158. -- part name: Speaker (tone dialing)
  159. ----- HyperTalk script -----
  160. on mouseUp
  161.   set hilite of bkgnd button "speaker (tone dialing)" to true
  162.   set hilite of bkgnd button "modem (tone dialing)" to false
  163.   set hilite of bkgnd button "modem (pulse dialing)" to false
  164. end mouseUp
  165.  
  166.  
  167.  
  168. -- part 45 (button)
  169. -- low flags: 00
  170. -- high flags: A006
  171. -- rect: left=79 top=222 right=240 bottom=215
  172. -- title width / last selected line: 0
  173. -- icon id / first selected line: 0 / 0
  174. -- text alignment: 1
  175. -- font id: 3
  176. -- text size: 10
  177. -- style flags: 0
  178. -- line height: 13
  179. -- part name: Modem (tone dialing)
  180. ----- HyperTalk script -----
  181. on mouseUp
  182.   set hilite of bkgnd button "speaker (tone dialing)" to false
  183.   set hilite of bkgnd button "modem (tone dialing)" to true
  184.   set hilite of bkgnd button "modem (pulse dialing)" to false
  185. end mouseUp
  186.  
  187.  
  188.  
  189. -- part 46 (button)
  190. -- low flags: 00
  191. -- high flags: A006
  192. -- rect: left=79 top=239 right=257 bottom=215
  193. -- title width / last selected line: 0
  194. -- icon id / first selected line: 0 / 0
  195. -- text alignment: 1
  196. -- font id: 3
  197. -- text size: 10
  198. -- style flags: 0
  199. -- line height: 13
  200. -- part name: Modem (pulse dialing)
  201. ----- HyperTalk script -----
  202. on mouseUp
  203.   set hilite of bkgnd button "speaker (tone dialing)" to false
  204.   set hilite of bkgnd button "modem (tone dialing)" to false
  205.   set hilite of bkgnd button "modem (pulse dialing)" to true
  206. end mouseUp
  207.  
  208.